home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / lttrgen.arc / MAILLAB.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  896 b   |  35 lines
  1. NOTE - THIS COMMAD FILE PRINTS MAILING LABELS ON THE PRINTER
  2. *
  3. REMARK WHEN LABELS ARE IN PLACE, HIT CARRIAGE RETURN
  4. WAIT
  5. *  - echo printed information to screen
  6. SET PRINT ON
  7. *  - position to top of MAIL.DBF
  8. GO TOP
  9. *  - print labels
  10. DO WHILE .NOT.EOF
  11.    *  - print name
  12.    DISP OFF $(NAME,13,17)-(' '+$(NAME,1,12))
  13.    *  - checking to see if office address
  14.    IF OF#'  '
  15.      *  - print office name   
  16.      DISP OFF OF
  17.      *  - print address
  18.      DISP OFF ADDR
  19.      *  - print city, state, zip
  20.      DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5))
  21.    ELSE
  22.      *  - print home address
  23.      DISP OFF ADDR
  24.      *  - print city, state, zip
  25.      DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5))
  26.      ?
  27.    ENDIF
  28.    ?
  29.   SKIP
  30. ENDDO
  31. *  - turn off echo of labels
  32. SET PRINT OFF
  33. REMARK ALL DONE
  34. RETURN
  35.